home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / aminet2.lha / JoinMailDE < prev    next >
Text File  |  1997-10-05  |  2KB  |  72 lines
  1. /* $VER: JoinMail.yam 1.2 (05 OCT 97)
  2. ** by Charles Patterson <midian@azstarnet.com>
  3. ** http://www.azstarnet.com/~midian
  4. **
  5. ** Description: This script joins split files into one mail file.
  6. **              ftp-mail@uni-paderborn.de version
  7. **
  8. ** Requirements: YAM 1.3.4 (© 1995-96 Marcel Beck)
  9. **
  10. ** Instructions: Select part 001 of email then start script.
  11. */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. ADDRESS YAM
  16.  
  17. 'GETMAILINFO SUBJECT'
  18. PARSE VAR RESULT filename listing number '/' parts
  19. IF number ~= "1" THEN DO
  20.     'REQUEST "Select part 1 then run script." "Ok"'
  21.     EXIT
  22. END
  23.  
  24. 'GETMAILINFO FILE'
  25. filename = RESULT
  26. filename = LEFT(filename,LENGTH(FILENAME)-8)||"0001.000"
  27. ext = 48
  28. DO UNTIL ~EXISTS(filename)
  29.     ext = ext + 1
  30.     filename = LEFT(filename,LENGTH(FILENAME)-1)||D2C(ext)
  31. END
  32.  
  33. 'GETFOLDERINFO MAX'
  34. count = RESULT
  35. filecount = 0
  36.  
  37. DO x = count-1 to 0 BY -1
  38.     'SETMAIL' x
  39.     'GETMAILINFO SUBJECT'
  40.     PARSE VAR RESULT filenamec listing number '/' partsc
  41.     IF filenamec = filename THEN DO
  42.         filenum = STRIP(number)
  43.         'GETMAILINFO FILENAME'
  44.         file.filenum = RESULT
  45.         filecount = filecount + 1
  46.     END
  47.     IF filecount = parts THEN BREAK
  48. END
  49.  
  50. IF filecount > 0 THEN DO
  51.     OPEN('output',fileout,W)
  52.     DO x = 1 to filecount
  53.         OPEN('input',file.x,R)
  54.         IF x > 1 THEN DO
  55.             DO UNTIL (LEFT(READLN('input'),5)='begin')
  56.             END
  57.         END
  58.         DO WHILE ~EOF('input')
  59.             line = READLN('input')
  60.             IF LEFT(line,8) = 'Subject:' THEN
  61.                 line = 'Subject: Combined'filename
  62.             IF STRIP(line) ~= '' & LEFT(line,7) ~= 'include' THEN
  63.                 WRITELN('output', line)
  64.             IF LEFT(line,6)='X-UIDL' & x = 1 THEN
  65.                 WRITELN('output','')
  66.         END
  67.         CLOSE('input')
  68.     END
  69.     CLOSE('output')
  70.     'MAILUPDATE'
  71. END
  72.